home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / SoundAndMusic / cmix / lib / boscili.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-02-25  |  511 b   |  22 lines
  1. boscili(amp,si,farray,len,phs,array,alen)      
  2. float amp,si,*farray,*phs,*array;
  3. register len,alen;
  4. {
  5.         register i,j,k;
  6.         float frac,temp;
  7.         float *fp = array; 
  8.         temp = *phs;
  9.         for (j=alen;j>0;--j) { 
  10.         i =  temp;        
  11.                k =  (i + 1) % len;  
  12.         frac = temp  - i;      
  13.         temp += si;                 
  14.         while(temp >= len)
  15.             temp -= len;       
  16.          *fp++ = ((*(farray+i) + (*(farray+k) - *(farray+i)) *
  17.         frac) * amp);
  18.             }
  19.         *phs=temp;
  20.         return(j);
  21.     }
  22.